﻿'**************************************************************************
' StatusMessage
' Singleton para mostrar mensagens na barra de status do FrmMain.
' 
' Namespace..: Core
' Classe.....: StatusMessage
' Fonte......: StatusMessage.vb
' Autor......: Lucas Klassmann
' Descricao..: Atalho para mostrar mensagens na barra de status do sistema.
'
' Utilizacao.: Deve ser invoncada diretamente, é um singleton, logo nao e
' necessario instanciar.
' Deve primeiramente ser adicionado o form a ser utilizado para mostrar a
' mensagem de status e depois da primeira vez configurado a propriedade
' Frm, basta chamar o metodo Show("") de qualquer lugar da aplicacao para
' mostrar a mensagem na barra de status do formulario.
'**************************************************************************

Namespace Core
    Public Class StatusMessage
        Private Shared _frm As frmMain
        Private Shared _instance As StatusMessage

        Private Sub New()

        End Sub

        Public Shared Property Instance() As StatusMessage
            Get
                If _instance Is Nothing Then
                    _instance = New StatusMessage()
                End If
                Return _instance
            End Get
            Set(ByVal value As StatusMessage)
                _instance = value
            End Set
        End Property

        Public Shared Property Frm() As FrmMain
            Get
                Return _frm
            End Get
            Set(ByVal value As FrmMain)
                _frm = value
            End Set
        End Property

        Public Shared Sub Show(ByVal msg As String)
            If _frm IsNot Nothing Then
                _frm.StatusStrip1.Items(0).Text = msg
            End If
        End Sub
    End Class
End Namespace
